#include Once "clsAppliction.bi"

Dim Shared App As clsAppliction

Constructor	clsAppliction
#ifndef UNICODE
	Dim szTemp As ZString * MAX_PATH
#else
    Dim szTemp As WString * MAX_PATH
#endif 
    Dim x As Long
    
    App.CompanyName = ""
	App.ProductName = ""
	App.hInstance = GetModuleHandle(NULL)
	App.Major    = 1  'Version is 1.0.0.0
	App.Minor    = 0
	App.Revision = 0
	App.Build    = 0
	
	GetModuleFileName App.hInstance,szTemp,MAX_PATH
    x = InStrRev(szTemp, Any ":/\")
    If x Then 
        App.Path    =  Left(szTemp, x) 
        App.ExeName =  Mid(szTemp, x + 1)
    Else
        App.Path    =  "" 
        App.ExeName =  szTemp
    End If
	
	SetCurrentDirectory(@App.Path)
End Constructor




























